home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / ebl.arc / DIAL.BAT < prev    next >
Encoding:
DOS Batch File  |  1985-11-12  |  2.3 KB  |  73 lines
  1. bat * Dialing driver for PC-TALK ... (enter "DIAL ?" for help)
  2. bat cls
  3. bat if %1 <> ? goto -nohelp    |* See if user wants help message.
  4. bat begtype
  5. ==== DIALING DRIVER FOR PC-TALK.====================================
  6.  
  7.   Format:
  8.  
  9.      DIAL number {R}
  10.  
  11.   Where:
  12.  
  13.      number - If this is a one or two digit number, this selects the
  14.     entry number from the internal dialing directory (previously
  15.     saved). If greater than 2 digits, this is used directly as a
  16.     phone number to dial.
  17.  
  18.      R (optional) - Selects repeated dialing mode. (continues to dial
  19.     until computer answers)
  20.  
  21. end
  22. bat exit
  23.  
  24. bat -nohelp
  25. bat if .%1 = . call -getnumber    | * if not passed, get dialing info
  26. bat %3 = %1 #            | * get length of string
  27. bat if %3 < 3 call -validate    | * if menu #, validate
  28. bat * insert into keyboard stack a startup of PC-talk, carriage return,
  29. bat *  line feed, alt-D
  30. bat begstack
  31. PC-TALK
  32.  
  33. \00\20;
  34. end
  35. bat if %3 > 2 stack M | skip 2    | * if special #, insert M
  36.        bat %4 = %1 - 1| %4 = %4 / 15   | * else calculate # menus to jump
  37.        bat call -getmenu           | *    position on right menu
  38. bat stack %1            | * insert # to dial
  39. bat if %2 = R call -rptmode    | * if requested, put in repeat dial mode
  40. bat exit            | * exit to DOS, stack starts PC-TALK program.
  41.  
  42. bat ***********************
  43. bat ***   Subroutines    ***
  44. bat ***********************
  45.  
  46. bat -getnumber
  47.     bat type | read Please enter # to dial: %1
  48.     bat type | inkey DIAL R(epeatedly until answered)...1(time)=<Rtn> (R,1): %2
  49.     bat -chk if %2 <> KEY00D if %2 <> R if %2 <> 1 beep|inkey %2| goto -chk
  50.     bat if %2 = KEY00D %2 = 1
  51.     bat type %2
  52. bat return
  53.  
  54. bat -validate
  55.       bat if %1 > 0 if %1 < 61 return
  56.          bat cls beep type your entry of %1 is an
  57.          bat read .     INVALID menu #:  please RE-ENTER (1-60): %1
  58. bat goto -validate
  59.  
  60. bat -getmenu
  61.       bat if %4 < 1 return
  62.       bat %4 = %4 - 1
  63.       bat stack F
  64. bat goto -getmenu
  65.  
  66. bat -rptmode
  67. bat * insert slight delay, K to stop dial, alt-Q to make repeat
  68. bat begstack
  69. \ff\02K\00\10;
  70. end
  71. bat return
  73.